home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / amms / mbbatch / create_net.bat next >
Encoding:
DOS Batch File  |  1995-05-16  |  10.1 KB  |  440 lines
  1. ;
  2. ;       Script zum Erstellen der Fastnet-Netzbretter
  3. ;    Es werden keine lokalen Bretter erstellt !
  4. ;
  5. ;       V 1.34 / 16-Mai-95
  6. ;
  7. ;  Neue Directories 
  8. ;
  9. ;      keine 
  10. ;
  11. ;  Neue MessieBretter 
  12. ;
  13. ;     ":Fastnet/Pins/Frauen"
  14. ;
  15. ;  Neue FileBretter
  16. ;
  17. ;     keine
  18. ;
  19. ; ---------------------------------------------------------------
  20. ;
  21. ;  Sollte ein Brett schon existieren wird es nicht mehr in die
  22. ;  Brettlisten der einzelnen Netzuser eingetragen !!!
  23. ;  Da es wohl einige Probleme mit anderen Netzusern gab, die
  24. ;  keine Fastnet-Netuser sind !!!
  25. ;
  26. ; ---------------------------------------------------------------
  27.  
  28. _on error FAIL                ; Bei Fehler -> FAIL
  29.  
  30. NETUSER="NET@*"                ; Kennung der Netzuser
  31.  
  32. _check file mbdat:BRETT-CREATE.dat set
  33. _disk execute/keeplevel mbdat:BRETT-CREATE.dat
  34. _goto start
  35.  
  36. set:
  37. _echo
  38. _echo "Setup (Wird in mbdat:BRETT-CREATE.dat gespeichert)"
  39. _echo 
  40. _input SYSOP "Name des Verwalters fuer die Netzbretter : "
  41. _if SYSOP == "" then _eod
  42. _input/N MAXMSGS "Maximale Messageanzahl pro Messagebrett : "
  43. _if MAXMSGS == "" then _eod
  44. _input/N MAXFILES "Maximale Fileanzahl pro Filebrett : "
  45. _if MAXFILES == "" then _eod
  46. _ex echo >mbdat:BRETT-CREATE.dat "SYSOP=*"'SYSOP'*""
  47. _ex echo >>mbdat:BRETT-CREATE.dat "MAXMSGS='MAXMSGS'"
  48. _ex echo >>mbdat:BRETT-CREATE.dat "MAXFILES='MAXFILES'"
  49.  
  50.  
  51. start:
  52.  
  53.  
  54. _echo
  55. _echo "Verwalter: 'SYSOP'"
  56. _echo "Max. Msganzahl pro Brett: 'MAXMSGS'"
  57. _echo "Max. Fileanzahl pro Brett 'MAXFILES'"
  58. _menu "Etwas aendern (j/N) ? " "j" set "y" set "n" weiter "^M" weiter
  59.  
  60. weiter:
  61.  
  62. fbocounter = 0
  63. mbocounter = 0
  64. dircounter = 0
  65.  
  66. ; Verwalter eingeben
  67.  
  68. ; Alle Bretter einrichten
  69.  
  70. _cd :                    ; Ins Root-Directory
  71.  
  72.  
  73. Create-Bretties:
  74.  
  75. DIRNAME="Fastnet"            ; Directory erzeugen
  76. _gosub MAKEDIR
  77.  
  78.  
  79. DIRNAME="Fastnet/Computer"        ; Directory erzeugen
  80. _gosub MAKEDIR
  81.  
  82.  
  83. DIRNAME="Fastnet/Computer/Allgemein"    ; Directory erzeugen
  84. _gosub MAKEDIR
  85.  
  86. TEXT=1                    ; Text 1 anzeigen
  87. COPYBOARD=""                ; Zugriffe editieren
  88. BOARDNAME="'DIRNAME'/Spiele"
  89. _gosub MAKEBOARD
  90. COPYBOARD=BOARDNAME            ; Zugriffe kopieren
  91. BOARDNAME="'DIRNAME'/Midi-Talk"
  92. _gosub MAKEBOARD
  93. BOARDNAME="'DIRNAME'/Pin"
  94. _gosub MAKEBOARD
  95.  
  96.  
  97.  
  98. DIRNAME="Fastnet/Computer/Amiga"    ; Directory erzeugen
  99. _gosub MAKEDIR
  100. BOARDNAME="'DIRNAME'/Allgemein"
  101. _gosub MAKEBOARD
  102. BOARDNAME="'DIRNAME'/Software"
  103. _gosub MAKEBOARD
  104. BOARDNAME="'DIRNAME'/Hardware"
  105. _gosub MAKEBOARD
  106. BOARDNAME="'DIRNAME'/Sprachen"
  107. _gosub MAKEBOARD
  108. BOARDNAME="'DIRNAME'/Amiga_E"
  109. _gosub MAKEBOARD
  110.  
  111.  
  112. DIRNAME="Fastnet/Computer/PC"        ; Directory erzeugen
  113. _gosub MAKEDIR
  114. BOARDNAME="'DIRNAME'/Allgemein"
  115. _gosub MAKEBOARD
  116. BOARDNAME="'DIRNAME'/Software"
  117. _gosub MAKEBOARD
  118. BOARDNAME="'DIRNAME'/Hardware"
  119. _gosub MAKEBOARD
  120. BOARDNAME="'DIRNAME'/Sprachen"
  121. _gosub MAKEBOARD
  122.  
  123.  
  124. DIRNAME="Fastnet/Computer/Rest"        ; Directory erzeugen
  125. _gosub MAKEDIR
  126. BOARDNAME="'DIRNAME'/Allgemein"
  127. _gosub MAKEBOARD
  128. BOARDNAME="'DIRNAME'/Software"
  129. _gosub MAKEBOARD
  130. BOARDNAME="'DIRNAME'/Hardware"
  131. _gosub MAKEBOARD
  132. BOARDNAME="'DIRNAME'/Sprachen"
  133. _gosub MAKEBOARD
  134.  
  135.  
  136. DIRNAME="Fastnet/Hobby"            ; Directory erzeugen
  137. _gosub MAKEDIR
  138. BOARDNAME="'DIRNAME'/Sammeln"
  139. _gosub MAKEBOARD
  140. BOARDNAME="'DIRNAME'/Rezepte"
  141. _gosub MAKEBOARD
  142. BOARDNAME="'DIRNAME'/RolePlaying"
  143. _gosub MAKEBOARD
  144.  
  145.  
  146.  
  147. DIRNAME="Fastnet/Pins"            ; Directory erzeugen
  148. _gosub MAKEDIR
  149. BOARDNAME="'DIRNAME'/Allgemein"
  150. _gosub MAKEBOARD
  151. BOARDNAME="'DIRNAME'/Arbeit&Beruf"
  152. _gosub MAKEBOARD
  153. BOARDNAME="'DIRNAME'/Berlin"
  154. _gosub MAKEBOARD
  155. BOARDNAME="'DIRNAME'/Diskussion"
  156. _gosub MAKEBOARD
  157. BOARDNAME="'DIRNAME'/Flohmarkt"
  158. _gosub MAKEBOARD
  159. BOARDNAME="'DIRNAME'/Frauen"
  160. _gosub MAKEBOARD
  161. BOARDNAME="'DIRNAME'/Gay-Talk"
  162. _gosub MAKEBOARD
  163. BOARDNAME="'DIRNAME'/Politik"
  164. _gosub MAKEBOARD
  165. BOARDNAME="'DIRNAME'/Rechtschreibung"
  166. _gosub MAKEBOARD
  167. BOARDNAME="'DIRNAME'/Sport"
  168. _gosub MAKEBOARD
  169. BOARDNAME="'DIRNAME'/Streit"
  170. _gosub MAKEBOARD
  171. BOARDNAME="'DIRNAME'/Tiere"
  172. _gosub MAKEBOARD
  173.  
  174.  
  175. DIRNAME="Fastnet/Technik"        ; Directory erzeugen
  176. _gosub MAKEDIR
  177. BOARDNAME="'DIRNAME'/Auto"
  178. _gosub MAKEBOARD
  179. BOARDNAME="'DIRNAME'/Fahrrad"
  180. _gosub MAKEBOARD
  181. BOARDNAME="'DIRNAME'/HiFi"
  182. _gosub MAKEBOARD
  183. BOARDNAME="'DIRNAME'/Mobilfunk"
  184. _gosub MAKEBOARD
  185. BOARDNAME="'DIRNAME'/Telekom"
  186. _gosub MAKEBOARD
  187.  
  188.  
  189. DIRNAME="Fastnet/Unterhaltung"        ; Directory erzeugen
  190. _gosub MAKEDIR
  191. BOARDNAME="'DIRNAME'/Buehne"
  192. _gosub MAKEBOARD
  193. BOARDNAME="'DIRNAME'/Fernsehen"
  194. _gosub MAKEDIR
  195. BOARDNAME="'DIRNAME'/Kino&Video"
  196. _gosub MAKEBOARD
  197. BOARDNAME="'DIRNAME'/Musik"
  198. _gosub MAKEBOARD
  199. BOARDNAME="'DIRNAME'/Raver"
  200. _gosub MAKEBOARD
  201. BOARDNAME="'DIRNAME'/ScienceFiction"
  202. _gosub MAKEBOARD
  203. BOARDNAME="'DIRNAME'/Witze"
  204. _gosub MAKEBOARD
  205.  
  206.  
  207. DIRNAME="Fastnet/Medien"        ; Directory erzeugen
  208. _gosub MAKEDIR
  209.  
  210. TEXT=2                    ; Text 2 anzeigen
  211. COPYBOARD=""                ; Zugriffe editieren
  212. BOARDNAME="'DIRNAME'/Allgemein"
  213. _gosub MAKEBOARD
  214. COPYBOARD=BOARDNAME            ; Zugriffe kopieren
  215.  
  216.  
  217. DIRNAME="Fastnet/System"        ; Directory erzeugen
  218. _gosub MAKEDIR
  219. BOARDNAME="'DIRNAME'/AMMS-Info"
  220. _gosub MAKEBOARD
  221. BOARDNAME="'DIRNAME'/Fastnet-Info"
  222. _gosub MAKEBOARD
  223. BOARDNAME="'DIRNAME'/Anregung&Kritik"
  224. _gosub MAKEBOARD
  225.  
  226. TEXT=3                    ; Text 3 anzeigen
  227. COPYBOARD=""                ; Zugriffe editieren
  228. BOARDNAME="'DIRNAME'/AMMS-Talk"
  229. _gosub MAKEBOARD
  230. COPYBOARD=BOARDNAME            ; Zugriffe kopieren
  231. BOARDNAME="'DIRNAME'/BugReport"
  232. _gosub MAKEBOARD
  233. BOARDNAME="'DIRNAME'/Fastnet-Talk"
  234. _gosub MAKEBOARD
  235. BOARDNAME="'DIRNAME'/Sysop-Talk"
  236. _gosub MAKEBOARD
  237. BOARDNAME="'DIRNAME'/Vote-Talk"
  238. _gosub MAKEBOARD
  239. BOARDNAME="'DIRNAME'/Vote-Info"
  240. _gosub MAKEBOARD
  241.  
  242.  
  243.  
  244. TEXT=4                    ; Text 4 anzeigen
  245. COPYBOARD=""                ; Zugriffe editieren
  246. BOARDNAME="'DIRNAME'/Updates"
  247. _gosub MAKEFBOARD
  248.  
  249.  
  250. DIRNAME="Fastnet/Files"            ; Directory erzeugen
  251. _gosub MAKEDIR
  252.  
  253. TEXT=5                    ; Text 5 anzeigen
  254. COPYBOARD=""                ; Zugriffe editieren
  255. BOARDNAME="'DIRNAME'/Allgemein"
  256. _gosub MAKEFBOARD
  257. COPYBOARD=BOARDNAME            ; Zugriffe kopieren
  258. BOARDNAME="'DIRNAME'/Amiga"
  259. _gosub MAKEFBOARD
  260. BOARDNAME="'DIRNAME'/PC"
  261. _gosub MAKEFBOARD
  262. BOARDNAME="'DIRNAME'/AMMS-Tools"
  263. _gosub MAKEFBOARD
  264.  
  265. ; ENDE ...
  266. _echo "^J 'dircounter' DIR(s) erzeugt !!"
  267. _echo " 'mbocounter' Messiebrett(er) erzeugt !!"
  268. _echo " 'fbocounter' Filebrett(er) erzeugt !!"
  269. _echo "^JFertig !^J"
  270. _eod
  271.  
  272. FAIL:
  273. _echo "^JIrgendetwas ist schiefgelaufen !^J"
  274. _eod
  275.  
  276.  
  277. ; ************************
  278. ; *
  279. ; *     Name : MAKEFBOARD
  280. ; *
  281. ; * Funktion : Unterroutine zum Erzeugen eines Boards
  282. ; *
  283. ; *    Input : BOARDNAME=Name des Boards
  284. ; *           COPYBOARD=Name des Boards, dessen Zugriffe kopiert werden
  285. ; *             Leer=Zugriffe editieren
  286. ; *
  287. ; *   Output : keine
  288. ; *
  289. ; ************************
  290. MAKEFBOARD:
  291. _check fboard "'BOARDNAME'" MAKEFBOARD_CREATE
  292. _echo "#VFARBE 1#- Filebrett 'BOARDNAME' existiert schon ...#RESET#"
  293. _goto MAKEFBOARD_END2
  294.  
  295. MAKEFBOARD_CREATE:
  296. _echo "+ Erzeuge Netzfilebrett 'BOARDNAME' fuer max. 'MAXFILES' Files ..."
  297. _make fboard "'BOARDNAME'" "'SYSOP'" "Netzbrett" MAXFILES 999999
  298.  fbocounter = fbocounter+1
  299.  
  300. MAKEFBOARD_COPY:
  301. _if COPYBOARD == "" then _goto MAKEFBOARD_EDIT
  302. _edit fboard/copy "'COPYBOARD'" "'BOARDNAME'"
  303. _goto MAKEFBOARD_END
  304.  
  305. MAKEFBOARD_EDIT:
  306. _gosub PRINTTEXT
  307. _edit fboard "'BOARDNAME'"
  308.  
  309. MAKEFBOARD_END:
  310. _files/action=9/user="'NETUSER'" "'BOARDNAME'"
  311. MAKEFBOARD_END2:
  312.  TEXT=0
  313. _return
  314.  
  315.  
  316. ; ************************
  317. ; *
  318. ; *     Name : MAKEBOARD
  319. ; *
  320. ; * Funktion : Unterroutine zum Erzeugen eines Boards
  321. ; *
  322. ; *    Input : BOARDNAME=Name des Boards
  323. ; *           COPYBOARD=Name des Boards, dessen Zugriffe kopiert werden
  324. ; *             Leer=Zugriffe editieren
  325. ; *
  326. ; *   Output : keine
  327. ; *
  328. ; ************************
  329. MAKEBOARD:
  330. _check board "'BOARDNAME'" MAKEBOARD_CREATE
  331. _echo "#VFARBE 1#- Brett 'BOARDNAME' existiert schon ...#RESET#"
  332. _goto MAKEBOARD_END2
  333.  
  334. MAKEBOARD_CREATE:
  335. _echo "+ Erzeuge Netzbrett 'BOARDNAME' fuer 'MAXMSGS' Messages ..."
  336. _make board "'BOARDNAME'" "'SYSOP'" "Netzbrett" MAXMSGS 200
  337.  mbocounter = mbocounter+1
  338.  
  339. MAKEBOARD_COPY:
  340. _if COPYBOARD == "" then _goto MAKEBOARD_EDIT
  341. _edit board/copy "'COPYBOARD'" "'BOARDNAME'"
  342. _goto MAKEBOARD_END
  343.  
  344. MAKEBOARD_EDIT:
  345. _gosub PRINTTEXT
  346. _edit board "'BOARDNAME'"
  347.  
  348. MAKEBOARD_END:
  349. _read/action=9/user="'NETUSER'" "'BOARDNAME'"
  350. MAKEBOARD_END2:
  351.  TEXT=0
  352. _return
  353.  
  354.  
  355. ; ************************
  356. ; *
  357. ; *     Name : MAKEDIR
  358. ; *
  359. ; * Funktion : Unterroutine zum Erzeugen eines Directory's
  360. ; *
  361. ; *    Input : DIRNAME=Name des Directory's
  362. ; *
  363. ; *   Output : keine
  364. ; *
  365. ; ************************
  366. MAKEDIR:
  367. _check dir "'DIRNAME'" MAKEDIR_CREATE
  368. _echo "#VFARBE 1#Netzdir 'DIRNAME' existiert schon ...#RESET#"
  369. _return
  370. MAKEDIR_CREATE:
  371. _echo "Erzeuge Netzdir 'DIRNAME' ..."
  372. _make dir "'DIRNAME'"
  373.  dircounter = dircounter+1
  374. _return
  375.  
  376.  
  377. ; ************************
  378. ; *
  379. ; *     Name : PRINTTEXT
  380. ; *
  381. ; * Funktion : Unterroutine zum Anzeigen eines Hilfsstextes
  382. ; *
  383. ; *    Input : TEXT=Nummer des Hilfstextes
  384. ; *
  385. ; *   Output : keine
  386. ; *
  387. ; ************************
  388. PRINTTEXT:
  389. _if/i TEXT == 1 then _goto PRINTTEXT_1
  390. _if/i TEXT == 2 then _goto PRINTTEXT_2
  391. _if/i TEXT == 3 then _goto PRINTTEXT_3
  392. _if/i TEXT == 4 then _goto PRINTTEXT_4
  393. _if/i TEXT == 5 then _goto PRINTTEXT_5
  394. _return
  395.  
  396. PRINTTEXT_1:
  397. _echo "Bitte jetzt die Zugriffe fuer die oeffentlichen Netzbretter setzen."
  398. _echo "Die ueberprueften User und die Netzuser bekommen die Zugriffe -RWD."
  399. _echo "Die restlichen User duerfen hoechstens Lese-Zugriff -R-- bekommen !"
  400. _echo "Beende den EDIT BOARD mit der Taste x."
  401. _echo "<TASTE FUER EDIT BOARD>"
  402. _waitkey
  403. _return
  404.  
  405. PRINTTEXT_2:
  406. _echo "Bitte jetzt die Zugriffe fuer die oeffentlichen Lese-Netzbretter setzen."
  407. _echo "Die Netzuser bekommen die Zugriffe -RWD !"
  408. _echo "Die restlichen User duerfen hoechstens Lese-Zugriff -R-- bekommen !"
  409. _echo "Beende den EDIT BOARD mit der Taste x."
  410. _echo "<TASTE FUER EDIT BOARD>"
  411. _waitkey
  412. _return
  413.  
  414. PRINTTEXT_3:
  415. _echo "Bitte jetzt die Zugriffe fuer die Sysop-Netzbretter setzen."
  416. _echo "Die Netzuser und die Sysops bekommen die Zugriffe -RWD !"
  417. _echo "Die restlichen User bekommen KEIN Zugriff ---- !"
  418. _echo "Beende den EDIT BOARD mit der Taste x."
  419. _echo "<TASTE FUER EDIT BOARD>"
  420. _waitkey
  421. _return
  422.  
  423. PRINTTEXT_4:
  424. _echo "Bitte jetzt die Zugriffe fuer das Update-Filebrett setzen."
  425. _echo "Die Netzuser und die Sysops bekommen die Zugriffe -UDE !"
  426. _echo "Die restlichen User bekommen KEIN Zugriff ---- !"
  427. _echo "Beende den EDIT FBOARD mit der Taste x."
  428. _echo "<TASTE FUER EDIT FBOARD>"
  429. _waitkey
  430. _return
  431.  
  432. PRINTTEXT_5:
  433. _echo "Bitte jetzt die Zugriffe fuer die oeffentlichen Filebrett setzen."
  434. _echo "Die Netzuser und die Sysops bekommen die Zugriffe -UDE !"
  435. _echo "Die restlichen User bekommen hoechstens Download-Zugriff --D- !"
  436. _echo "Beende den EDIT FBOARD mit der Taste x."
  437. _echo "<TASTE FUER EDIT FBOARD>"
  438. _waitkey
  439. _return
  440.